home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / DEF / Utilities / Lengths / compress-with-len next >
Text File  |  1998-10-23  |  515b  |  13 lines
  1. compress-with-len symbols lengths min-len
  2.  
  3. Compresses the symbol pattern having a given length pattern using quantisation of min-len. This function is used to restore expand-with-len pattern back to normal.
  4.  
  5. (expand-with-len '(a b c d) '(1/16. 1/8) '1/1 '1/32)
  6. --> (a a a b b b b c c c d d d d a a a b b b b c c c d d d d a a a b b b b)
  7.  
  8. (compress-with-len '(a a a b b b b c c c d d d d a a a b b b b c c c d d d d a a a b b b b)
  9.                    '(1/16. 1/8)
  10.                    '1/32)
  11. --> (a b c d a b c d a b)
  12.  
  13.